home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / jazclib1.arc / JZGETDAT.C < prev    next >
Encoding:
Text File  |  1986-04-06  |  688 b   |  19 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzgetdat.c                                                                  │
  4. │Return the dos date                                                         │
  5. │                                                                            │
  6. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950                      │
  7. └────────────────────────────────────────────────────────────────────────────┘
  8. */
  9.  
  10. jzgetdat( fdate )
  11. char *fdate;
  12. {
  13.   union REGS winreg,woutreg;
  14.  
  15.   winreg.h.ah = 0x2a;
  16.   intdos(&winreg,&woutreg);
  17.   sprintf(fdate,"%02d-%02d-%4d",woutreg.h.dh,woutreg.h.dl,woutreg.x.cx);
  18. }
  19.